﻿Public Class clsSim
    Public Const GRAVITY As Single = -9.81
    Private Shared rnd As New Random

    Private Shared _wind As Single = 2.6


    Public Shared ReadOnly Property Wind As Single
        Get
            Return _wind
        End Get
    End Property

    Public Shared Function RndDbl() As Double
        Return rnd.NextDouble()
    End Function
    Public Shared Function RndInt() As Integer
        Return rnd.Next
    End Function
    Public Shared Function RndRange(ByVal lower As Integer, ByVal upper As Integer) As Integer
        Return rnd.Next(lower, upper)
    End Function
    Public Shared Function RndColor() As Drawing.Color
        Return Color.FromArgb(rnd.Next(0, 256), rnd.Next(0, 256), rnd.Next(0, 256))
    End Function

End Class
